usair <- structure(list(y = as.integer(c(10, 13, 12, 17, 56, 36, 29, 14, 
10, 24, 110, 28, 17, 8, 30, 9, 47, 35, 29, 14, 56, 14, 11, 46, 
11, 23, 65, 26, 69, 61, 94, 10, 18, 9, 10, 28, 31, 26, 29, 31, 
16)), x1 = c(70.3, 61, 56.7, 51.9, 49.1, 54, 57.3, 68.4, 75.5, 
61.5, 50.6, 52.3, 49, 56.6, 55.6, 68.3, 55, 49.9, 43.5, 54.5, 
55.9, 51.5, 56.8, 47.6, 47.1, 54, 49.7, 51.5, 54.6, 50.4, 50, 
61.6, 59.4, 66.2, 68.9, 51, 59.3, 57.8, 51.1, 55.2, 45.7), x2 = as.integer(c(213, 
91, 453, 454, 412, 80, 434, 136, 207, 368, 3344, 361, 104, 125, 
291, 204, 625, 1064, 699, 381, 775, 181, 46, 44, 391, 462, 1007, 
266, 1692, 347, 343, 337, 275, 641, 721, 137, 96, 197, 379, 35, 
569)), x3 = as.integer(c(582, 132, 716, 515, 158, 80, 757, 529, 
335, 497, 3369, 746, 201, 277, 593, 361, 905, 1513, 744, 507, 
622, 347, 244, 116, 463, 453, 751, 540, 1950, 520, 179, 624, 
448, 844, 1233, 176, 308, 299, 531, 71, 717)), x4 = c(6, 8.2, 
8.7, 9, 9, 9, 9.3, 8.8, 9, 9.1, 10.4, 9.7, 11.2, 12.7, 8.3, 8.4, 
9.6, 10.1, 10.6, 10, 9.5, 10.9, 8.9, 8.8, 12.4, 7.1, 10.9, 8.6, 
9.6, 9.4, 10.6, 9.2, 7.9, 10.9, 10.8, 8.7, 10.6, 7.6, 9.4, 6.5, 
11.8), x5 = c(7.05, 48.52, 20.66, 12.95, 43.37, 40.25, 38.89, 
54.47, 59.8, 48.34, 34.44, 38.74, 30.85, 30.58, 43.11, 56.77, 
41.31, 30.96, 25.94, 37, 35.89, 30.18, 7.77, 33.36, 36.11, 39.04, 
34.99, 37.01, 39.93, 36.22, 42.75, 49.1, 46, 35.94, 48.19, 15.17, 
44.68, 42.59, 38.79, 40.75, 29.07), x6 = as.integer(c(36, 100, 
67, 86, 127, 114, 111, 116, 128, 115, 122, 121, 103, 82, 123, 
113, 111, 129, 137, 99, 105, 98, 58, 135, 166, 132, 155, 134, 
115, 147, 125, 105, 119, 78, 103, 89, 116, 115, 164, 148, 123
))), .Names = c("y", "x1", "x2", "x3", "x4", "x5", "x6"), class = "data.frame", row.names = c("1", 
"2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", 
"14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", 
"25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", 
"36", "37", "38", "39", "40", "41"))
